## Not run:
# suppressMessages(library(cubfits, quietly = TRUE))
# set.seed(1234)
#
# dasl(-2:2)
# dasla(-2:2)
# pasl(-2:2)
# pasla(-2:2)
# qasl(seq(0, 1, length = 5))
# qasla(seq(0, 1, length = 5))
#
# dasl(-2:2, log = TRUE)
# dasla(-2:2, log = TRUE)
# pasl(-2:2, log.p = TRUE)
# pasla(-2:2, log.p = TRUE)
# qasl(log(seq(0, 1, length = 5)), log.p = TRUE)
# qasla(log(seq(0, 1, length = 5)), log.p = TRUE)
#
# set.seed(123)
# rasl(5)
# rasla(5)
#
# asl.optim(rasl(5000))
# ## End(Not run)
Run the code above in your browser using DataLab